home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c++-part1 / 6825 < prev    next >
Encoding:
Text File  |  1996-08-05  |  2.3 KB  |  96 lines
  1. Newsgroups: comp.lang.ada,comp.lang.c,comp.lang.c++
  2. Path: alexandria.organon.com!alexandria!jsa
  3. From: jsa@organon.com (Jon S Anthony)
  4. Subject: Re: C/C++ knocks the crap out of Ada
  5. In-Reply-To: ok@goanna.cs.rmit.EDU.AU's message of 19 Feb 1996 17:43:31 +1100
  6. Message-ID: <JSA.96Feb19192415@organon.com>
  7. Sender: news@organon.com (news)
  8. Organization: Organon Motives, Inc.
  9. References: <00001a73+00002504@msn.com> <4etcmm$lpd@nova.dimensional.com>
  10.     <3114d8fb.5a455349@zesi.ruhr.de> <4f5h5t$f13@vixen.cso.uiuc.edu>
  11.     <4g1bgf$l5@mailhub.scitec.com.au> <312515DF.7D3B@cmlj.demon.co.uk>
  12.     <4g5sas$787@goanna.cs.rmit.EDU.AU> <4g966j$cr8@goanna.cs.rmit.EDU.AU>
  13. Date: Tue, 20 Feb 1996 00:24:15 GMT
  14.  
  15. In article <4g966j$cr8@goanna.cs.rmit.EDU.AU> ok@goanna.cs.rmit.EDU.AU (Richard A. O'Keefe) writes:
  16.  
  17. > Simple I/O:
  18. > 
  19. > Step 1
  20. >     Look it up in the manual
  21. > Step 2
  22. >     Do what the Fine Manual says.
  23. > 
  24. > *SIMPLE* I/O involves withing and using a couple of standard packages,
  25. > and then using Put, New_Line, Get, and Skip_Line.  Pretty darned simple.
  26. > It has not been a problem for first-year students at this university.
  27. > 
  28. > Ada does not support Fortran-style formatted I/O, nor PL/I style
  29. > formatted or pictured I/O (but see Interfaces.COBOL).
  30.  
  31. For most naive (first time users) needs it is even simpler than this.
  32. Here, again, is a version in C and Ada of a simple first program:
  33.  
  34. First, the Ada (14 lines):
  35.  
  36. with Ada.Command_Line;  use Ada.Command_Line;
  37. with Text_Io;  use Text_Io;
  38.  
  39. procedure X is
  40.  
  41. begin
  42.     Put_Line(
  43.         "My name is " & Command_Name & ", I have" &
  44.         Integer'Image(Argument_Count) & " arguments.");
  45.     Put_Line("They are: ");
  46.     for I in 1..Argument_Count loop
  47.         Put_Line("  " & Argument(I));
  48.     end loop;
  49. end;
  50.  
  51. $ gnatmake $tests_wrk/x.adb
  52. $ x 1 2 3
  53. My name is x, I have 3 arguments.
  54. They are: 
  55.   1
  56.   2
  57.   3
  58.  
  59.  
  60. Now the C (14 lines):
  61.  
  62. #include <stdio.h>
  63.  
  64. main (argc, argv)
  65.     int argc;
  66.     char *argv[];
  67.  
  68. {
  69.     int i;
  70.  
  71.     printf ("My name is %s, I have %d arguments \n", argv[0], argc-1);
  72.     printf ("They are: \n");
  73.     for (i = 1; i < argc; i++)
  74.     printf("  %s\n", argv[i]);
  75. }
  76.  
  77. $ gcc -o cx cx.c
  78. $ cx 1 2 3
  79. My name is cx, I have 3 arguments 
  80. They are: 
  81.   1
  82.   2
  83.   3
  84.  
  85.  
  86. /Jon
  87. -- 
  88. Jon Anthony
  89. Organon Motives, Inc.
  90. 1 Williston Road, Suite 4
  91. Belmont, MA 02178
  92.  
  93. 617.484.3383
  94. jsa@organon.com
  95.  
  96.